home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / FILES.SWG / 0008_FILSHAR1.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  659b  |  34 lines

  1. Program ShareVolation;
  2. Uses Dos,Crt;
  3. Var
  4.   Dummy:    Boolean;
  5.  
  6. Function FileOpen(F:String):Boolean;
  7. Var
  8.   Regs: Registers;
  9.   I:    Byte;
  10. begin
  11.   With Regs do
  12.   begin
  13.     Ah := $3d;
  14.     Al := 2;
  15.     Ds := Seg(F);
  16.     Dx := Ofs(F)+1;
  17.   end;
  18.   Intr($21,Regs);
  19.  
  20.   WriteLn(F,' open: ',Regs.Ax = 5);
  21.   FileOpen := (Regs.Ax = 5);
  22. end; { FileOpen }
  23.  
  24. begin
  25.   Dummy := FileOpen('D:\FILSHARE.EXE'+#0);
  26.   Dummy := FileOpen('C:\CONFIG.SYS'+#0);
  27.   Dummy := FileOpen('C:\IO.SYS'+#0);
  28.   Dummy := FileOpen('C:\MSDos.SYS'+#0);
  29. end.
  30.  
  31. {
  32. And the funny thing was that it worked..
  33. (But it returns error code 6 [Invalide handle] on closed Files)..
  34. }